home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / misc / amag / AM95075a.lha / s / Install.script < prev   
Text File  |  1995-03-09  |  5KB  |  173 lines
  1. .k ""
  2. .bra {
  3. .ket }
  4.  
  5.  
  6. Echo "*e[1;1H*e[J*e[31;0m*N*N  ===============  *e[32;1mPROmote*e[31;0m INSTALLIERPROZEDUR  ================*N*N"
  7.  
  8.  Lab Questions
  9.  
  10.  If NOT EXISTS "lha"
  11.   Copy "Install:C/lha" to "Ram:"
  12.  EndIf
  13.  
  14.  Copy "Install:C/RequestChoice" to "Ram:"
  15.  Copy "Install:C/RequestFile" to "Ram:"
  16.  
  17.  Ram:RequestChoice TITLE "Frage...?" BODY "Wo sollen die Librarys Installiert werden?" GADGETS "LIBS:|FileReq|Abbruch" >ENV:ANSWER
  18.  If $ANSWER EQ 1
  19.   Echo "*e[31;1m    Kopiere die Librarys........... *e[0m"
  20.   Echo ""
  21.   Ram:Lha -x -M x  "Install:Libs.lha" "LIBS:"
  22.   If WARN
  23.    Echo ""
  24.    Echo "*e[31;1m    ERROR *e[0m" NOLINE
  25.    Skip End
  26.   Else
  27.    Echo ""
  28.    Echo "*e[31;1m    OK *e[0m"
  29.   EndIf
  30.  EndIf
  31.  If $ANSWER EQ 2
  32.   Ram:RequestFile DRAWER "LIBS:" TITLE "Wählen Sie den Pfad aus..." DRAWERSONLY NOICONS >ENV:RETURNPATH
  33.   IF NOT WARN
  34.    Echo "*e[31;1m    Kopiere die Librarys........... *e[0m"
  35.    Echo ""
  36.    Ram:Lha -x -M x  "Install:Libs.lha" $RETURNPATH
  37.    If WARN
  38.     Echo ""
  39.     Echo "*e[31;1m    ERROR *e[0m" NOLINE
  40.     Skip End
  41.    Else
  42.     Echo ""
  43.     Echo "*e[31;1m    OK *e[0m"
  44.    EndIf
  45.   EndIf
  46.  Else
  47.   Echo ""
  48.   Echo "*e[31;1m    Keine Librarys installiert...... *e[0m"
  49.  EndIf
  50.  
  51.  Echo ""
  52.  
  53.  Ram:RequestChoice TITLE "Frage...?" BODY "Wo sollen die Fonts Installiert werden?" GADGETS "FONTS:|FileReq|Abbruch" >ENV:ANSWER
  54.  If $ANSWER EQ 1
  55.   Echo "*e[31;1m    Kopiere die Fonts............... *e[0m"
  56.   Echo ""
  57.   Ram:Lha -x -M x  "Install:Fonts.lha" "FONTS:"
  58.   If WARN
  59.    Echo ""
  60.    Echo "*e[31;1m    ERROR *e[0m" NOLINE
  61.    Skip End
  62.   Else
  63.    Echo ""
  64.    Echo "*e[31;1m    OK *e[0m"
  65.   EndIf
  66.  EndIf
  67.  If $ANSWER EQ 2
  68.   Ram:RequestFile DRAWER "FONTS:" TITLE "Wählen Sie den Pfad aus..." DRAWERSONLY NOICONS >ENV:RETURNPATH
  69.   IF NOT WARN
  70.    Echo "*e[31;1m    Kopiere die Fonts............... *e[0m"
  71.    Echo ""
  72.    Ram:Lha -x -M x  "Install:Fonts.lha" $RETURNPATH
  73.    If WARN
  74.     Echo ""
  75.     Echo "*e[31;1m    ERROR *e[0m" NOLINE
  76.     Skip End
  77.    Else
  78.     Echo ""
  79.     Echo "*e[31;1m    OK *e[0m"
  80.    EndIf
  81.   EndIf
  82.  Else
  83.   Echo ""
  84.   Echo "*e[31;1m    Keine Fonts installiert.......... *e[0m"
  85.  EndIf
  86.  
  87.  Echo ""
  88.  
  89.  Ram:RequestChoice TITLE "Frage...?" BODY "Wo soll die ProgrammSchublade Installiert werden?" GADGETS "FileReq|Abbruch" >ENV:ANSWER
  90.  If $ANSWER EQ 1
  91.   Ram:RequestFile DRAWER "SYS:" TITLE "Wählen Sie den Pfad aus..." DRAWERSONLY NOICONS >ENV:RETURNPATH
  92.   IF NOT WARN
  93.    Echo "*e[31;1m    Kopiere die ProgrammDateien..... *e[0m"
  94.    Echo ""
  95.    Ram:Lha -x -M x  "Install:PROmote.lha" $RETURNPATH
  96.    If WARN
  97.     Echo ""
  98.     Echo "*e[31;1m    ERROR *e[0m" NOLINE
  99.     Skip End
  100.    Else
  101.     setenv NAME PATH $RETURNPATH
  102.     setenv NAME PROMOTE PROmote/
  103.     join ENV:PATH ENV:PROMOTE to ENV:INSTALLPATH
  104.     setenv NAME INSTALLPATH STRING "$INSTALLPATH"
  105.     Ram:Lha -x -M x  "Install:Documents.lha" $INSTALLPATH
  106.     If WARN
  107.      Echo ""
  108.      Echo "*e[31;1m    ERROR *e[0m" NOLINE
  109.      Skip End
  110.     Else
  111.      Ram:Lha -x -M x  "Install:Graphics.lha" $INSTALLPATH
  112.      If WARN
  113.       Echo ""
  114.       Echo "*e[31;1m    ERROR *e[0m" NOLINE
  115.       Skip End
  116.      Else
  117.       Echo ""
  118.       Ram:RequestChoice TITLE "ACHTUNG!" BODY "Bitte legen Sie jetzt die Diskette*N»PROmote« in eines ihrer Disketten-*Nlaufwerke! Danach mit »OK« bestätigen..." GADGETS "OK" >ENV:ANSWER
  119.       Wait 2 secs
  120.       If NOT EXISTS "PROmote:"
  121.        Echo ""
  122.        Echo "*e[31;1m    ERROR *e[0m" NOLINE
  123.        Skip End
  124.       Else
  125.        Ram:Lha -x -M x  "PROmote:Sounds.lha" $INSTALLPATH
  126.        If WARN
  127.         Echo ""
  128.         Echo "*e[31;1m    ERROR *e[0m" NOLINE
  129.         Skip End
  130.        Else
  131.         Echo "*e[31;1m    Kopiere die Player.............. *e[0m"
  132.         Copy "PROmote:MINPlayer" to $INSTALLPATH
  133.         Copy "PROmote:PROPlayer" to $INSTALLPATH
  134.         Echo "*e[31;1m    Kopiere die Skripte............. *e[0m"
  135.         Copy "PROmote:PROScript.Deutsch" to $INSTALLPATH
  136.         Copy "PROmote:PROScript.English" to $INSTALLPATH
  137.         Copy "PROmote:MINScript.English" to $INSTALLPATH
  138.         Copy "PROmote:MINScript.Deutsch" to $INSTALLPATH
  139.         Echo ""
  140.         Echo "*e[31;1m    OK *e[0m"
  141.        EndIf
  142.       EndIf
  143.      EndIf
  144.     EndIf
  145.    EndIf
  146.   EndIf
  147.  Else
  148.   Echo ""
  149.   Echo "*e[31;1m    Kein Programm installiert.......... *e[0m"
  150.   Skip End
  151.  EndIf
  152.  
  153.  Echo "*e[1;1H*e[J*e[31;0m*N*N  ===============  *e[32;1mPROmote*e[31;0m INSTALLIERPROZEDUR  ================*N*N"
  154.  Echo "*e[31;1m    Die Resourcen wurden erfolgreich Installiert.*e[0m"
  155.  Echo ""
  156.  Delete "Ram:lha" QUIET
  157.  Delete "Ram:RequestChoice" QUIET
  158.  Delete "Ram:RequestFile" QUIET
  159.  
  160.  Lab End
  161.  
  162.  Wait 2 secs
  163.  Ask "*e[32m*N   Drücken Sie <Return> um das Fenster zu schließen."
  164.  
  165. Else
  166.  Echo "*e[31;1m    Prozedur abgebrochen......*e[0m"
  167.  Delete "Ram:lha" QUIET
  168.  Delete "Ram:RequestChoice" QUIET
  169.  Delete "Ram:RequestFile" QUIET
  170.  Wait 2 secs
  171. EndIf
  172.  
  173. Endcli